如何在PHP中模仿computeHash vb函数
我有一段时间试图用php将其用于MD5 HASH ...我试图移植到PHP的VB代码使用ComputeHash使用Byte []并在整个数组上执行Hash./p> Public Shared Function HashBytesMD5(ByVal strInput As String) As Guid Dim oHasher As Cryptography.MD5 = Cryptography.MD5.Create() Dim oEncoder As New System.Text.UTF8Encoding() Dim csData() As Byte csData = oEncoder.GetBytes(strInput) csData = oHasher.ComputeHash(oEncoder.GetBytes(strInput)) Return New Guid(csData) E
0 2023-06-02
编程技术问答社区
防止用户能够通过Web浏览器访问网页?
我和我的朋友正在研究程序.该程序将向我们的网页提交获取数据.但是,除了程序以外,我们不希望用户访问该网页.我们可以防止用户使用HWID身份验证共享该程序,但是没有什么可以阻止他们使用数据包扫描仪来获取网页的URL.我们考虑了我们将实现的用户代理身份验证,但是可以轻松地欺骗用户代理. 所以我的问题是,我们如何阻止用户直接访问网页,而不是通过程序? 即使您没有完全有效的答案,任何有助于阻止他们的事情都会很好. 目前我们将实施: 使用该程序的HWID身份验证 访问网页的用户代理身份验证 即时IP黑名单向任何访问网页的任何人都没有适当的用户代理 解决方案 不依赖用户代理或任何类型的浏览器指纹,HTTP标头很容易锻造/欺骗. 您可以将一些秘密令牌(例如密码/登录)添加到请求中,并通过SSL发送以防止窃听. 或更好,使用SSL客户端证书. 编辑您要分发VB程序吗?如果是这样的话,正如鲍勃斯提到的那样,您无法阻止坚定的黑客提出请求.您可以提高标准杆,但
0 2023-06-02
编程技术问答社区
一个相当于VB.NET密码哈希函数的PHP版本
i具有以下视觉基本.NET函数,用于生成内部数据库中存储的密码哈希: Public Function HashPassword(ByVal Password As String, ByVal Salt As String) As String Dim pwd As String = Password & Salt Dim hasher As New Security.Cryptography.SHA256Managed() Dim pwdb As Byte() = System.Text.Encoding.UTF8.GetBytes(pwd) Dim pwdh As Byte() = hasher.ComputeHash(pwdb) Return Convert.ToBase64String(pwdh) End Function 我需要帮助创建相当于上述功能的PHP: 示例: Assuming a password strin
0 2023-06-01
编程技术问答社区
.Net和PHP的Rijndael加密不匹配
首先,我认为这是填充物,因为McRypt使用零填充,但我更改了PHP使用PKCS7并获得相同的确切结果 有人可以帮忙吗?我认为这与php 中的填充有关 来自.net的测试输出: Key: d88f92e4fa27f6d45b49446c7fc76976 Text: Testing123 Encrypted: /DMkj7BL9Eu2LMxKhdGT+A== Encrypted after base64 decode: ?3$??K?K?,?J??? Decrypted: Testing123 来自PHP的测试输出: Key: d88f92e4fa27f6d45b49446c7fc76976 Text: Testing123 Encrypted: K+ke5FNI5T6F6B/XvDF494+S8538Ze83cFz6v1FE89U= Encrypted after base64 decode: +éäSHå>…è×¼1x÷’óüeï7p\ú¿QDóÕ Decry
2 2023-05-31
编程技术问答社区
PHP加密和VB.net解密
我正在尝试完成一个简单的任务.在我的VB.NET应用程序中对PHP的值进行加密. 我认为我会使用三倍或rijdael 128或256 i虽然这应该很简单.谁能向我指向正确的方向? 谢谢 解决方案 我们有一些密码在.NET和PHP之间工作.我不熟悉vb.net.我认为它使用相同的加密库System.Security.Cryptography. 在PHP一侧,我们从McRypt切换到OpenSSL,因为McRypt不支持某些模式和桨. 只要您使用相同的算法(DES,AES等),相同的模式(CBC,ECB等),相同的填充(PKCS1,PKCS5),密码应在两个平台上使用. 使用McRypt在PHP侧使用AES-128进行加密的示例, $iv_size = mcrypt_get_iv_size(MCRYPT_RIJNDAEL_128, MCRYPT_MODE_CBC); $iv = mcrypt_create_iv($iv_size,
0 2023-05-31
编程技术问答社区
如何测试 SimpleXML 是否安装在我的 PHP 上?
有人知道吗?默认情况下,该东西是安装的.但是,有一种简单的方法可以检查是否安装了扩展名? 我检查了我是否可以使用Simplexml_load_string 解决方案 也有另一种方法.您可以创建一个PHP页 您可以在此处看到简单的XML或禁用. 其他解决方案 这对我有用... extension_loaded('simplexml') 示例: if (extension_loaded('simplexml')) { echo "all good, extension is installed"; } else{ echo "snip snap! no cigar";} 其他解决方案 在命令行上使用此命令: php -i | grep -i simplexml 结果应该是这样的: 单纯 simplexml支持=>启用
0 2023-05-30
编程技术问答社区
如何将数据从Visual Basic发送到PHP?
我有一个vb.net应用程序,其中我将错误字符串发送到PHP页面进行处理. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim errorString As String = "test string" Dim request As WebRequest = WebRequest.Create("http://10.0.0.1/test.php") request.Method = "POST" Dim byteArray As Byte() = Encoding.UTF8.GetBytes(errorString) request.ContentType = "application/x-www-form-urlencoded" request.ContentLength
0 2023-05-29
编程技术问答社区
在vb.net中POST到网页(win forms, desktop, not ASP.net)
我有各种PHP文件,将数据发布到(用户登录时的密码)如何从vb.net(Windows表单的桌面应用程序)发布到这些PHP,这与ASP.NET无关) 解决方案 您可以使用WebClient类.您需要将Content-Type标头设置为application/x-www-form-urlencoded,然后使用UploadData方法. Dim myWebClient As New WebClient() myWebClient.Headers.Add("Content-Type", "application/x-www-form-urlencoded") Dim responseArray = myWebClient.UploadData("https://...", "POST", Encoding.ASCII.GetBytes(postData)) Dim response = Encoding.ASCII.GetString(responseArray) 每个键值对都
0 2023-05-27
编程技术问答社区
Visual Basic + PHP服务器
我需要PHP服务器来与我的无线传感器进行交互.但是我还需要该服务器可以由Visual Basic应用程序控制. 我在Visual Basic应用中需要的一些功能: 开始/停止服务器 服务器配置 服务器目录上的访问文件. PHP文件(服务器应用程序)仅接受来自无线传感器模块的数据并存储在平面数据库文件(CSV,XML)中.书写后,Visual Basic必须访问平面数据库文件以执行分析. 关于使用哪种服务器以及哪些特定方法可以提供最简单的解决方案的任何建议? 解决方案 好吧,您想要的是广泛的,但是,关于您的PHP部分没有足够的信息. 但是我可以帮助您使用vb.net.这是一个真正可以帮助的类(以及一个子和事件). 一些示例首先 简单地加载html代码: Dim Page As New WEBhtml("http://www.example.com/index.php?get=something") While Page.IsRea
0 2023-05-27
编程技术问答社区
如何使用.NET检索数码相机上拍摄的照片的属性?
最好是在vb.net中,但是C#很好,我如何访问我的数码相机添加到文件中的额外属性,例如Date Picture Taken,Shutter Speed>或Camera Model? 解决方案 以下文章应该有用. 其他解决方案 我维护一个库,该库提供了从各种文件格式提取图像元数据的全面支持. https://github.com/drewnoakes/drewnoakes/metadata-extracta-extractor-dotnet /p> 其他解决方案 当我构建类似的东西时,我使用了,如果您不想从头开始编写它,有许多很棒的库可以为您提取.
0 2023-05-25
编程技术问答社区
来电显示检测。不适用于某些电话
我正在使用以下方法来检测呼叫者ID时. 在表单加载上我设置以下代码: this.serialPort1.PortName = "COM3"; this.serialPort1.BaudRate = 9600; this.serialPort1.DataBits = 8; this.serialPort1.RtsEnable = true; this.serialPort1.DataReceived += new SerialDataReceivedEventHandler(serialPort1_DataReceived); this.serialPort1.Open(); this.serialPort1.WriteLine("AT#cid=1" + System.Environment.NewLine); void serialPort1_DataReceived(object sender, SerialDataReceivedEventArgs e)
0 2023-05-25
编程技术问答社区
可能的组合 计算器
我想计算一系列数字(0至9),大写字母(a至z)和小写字母(a至z)中的所有可能组合. 阵列时仅包含10位数字或字母. 我正在尝试使用vb.net,但我发现它有些混乱. 任何人都知道该怎么做? 解决方案 这是一种迭代方法,可以使您从任何位置开始序列.这样,您可以停止序列,存储当前值,然后即使关闭了应用程序,也可以从同一位置重新启动(显然您必须像文本文件一样存储该值). 这只是我的代码的修改版本: httpp:////wwwww.expertssssssssssschange. com/programming/ranagages/.net/visual_basic.net/q_23723548.html#a22452485 Sleep()调用只是为了使您可以在标签中看到值: Public Class Form1 Private Rev As Revision Private Sub Form1_Load(sender As O
0 2023-05-25
编程技术问答社区
如何生成多个数组的所有排列方式/组合?
我的目标很简单,我正在尝试生成数据库中产品所有可能组合的列表. 例如, so;产品选项如下 产品选项:颜色/值:红色,绿色,蓝色 产品选项:尺寸/值:小,Med,大,XL 产品选项:样式/价值:男人,女人 我希望能够自动生成所有3: 的每个组合 Small, Red, Mens Small, Green, Mens Small, Blue, Mens etc 我需要该功能来工作,无论我将2,3,4还是5个阵列传递到其中. 我已经做了很多研究,并遇到了以下文章,但无法实现我的目标. 我发现的文章如下: 如何生成.NET 4.0 的列表元素的组合 vb .net string的允许.置换或组合? 解决方案 来自埃里克·利普特(Eric Lippert)的博客关于笛卡尔产品: Private Function CartesianProduct(Of T)(ParamArray sequences As T()()) As T()()
0 2023-05-25
编程技术问答社区
vb .net字符串的互换。互换还是组合?
我有像这样的字符串arary C - F - A - M.我想与条件创建一个组合: 在最后一个字符旁边彼此互相互相将上一个字符结合 不允许使用相同的组合,即使订单也不同.例如 fc -m cf -m 如果字符串数组包含> = 3元素,它将生成2&3 itemset,如果2个元素,则将仅生成2个项目集 以下是我的代码.我的代码像图片的正确部分生成结果 我的问题是我应该使用哪种方法?是置换,组合还是其他东西? 在伪代码中,我的情况会是什么样? 这是我的代码 Public Class permute Dim ItemUsed() As Boolean Dim pno As Long, pString As String Dim inChars() As Char = {"c", "f", "a", "m"} Private Sub permute_Load(ByVal sender As System.Object, ByVal e As
2 2023-05-25
编程技术问答社区
VB.NET应用程序在一个目录上设置了限制性的文件权限,这就错误地限制了同一目录中用户创建的文件。
我的VB.NET应用程序构建了一个有限访问的目录树. 访问应该是普通用户无法删除或重命名现有树.但是用户可以在树上的任何地方添加新的文件/文件夹.用户创建的文件/文件夹都应由任何用户完全修改. 我遇到的问题是获取访问设置,以便无法更改该应用程序创建的文件/文件夹,但是任何用户都可以更改用户创建的文件/文件夹. 当前正在发生的事情是,应用程序制作的文件/文件夹正确行为.但是,当用户创建自己的文件/文件夹时,该文件/文件夹的权限仅列出当前用户.因此 当前代码:(当用户创建文件/文件夹本身时,此代码无法访问对用户组或Advenroup,只有刚创建文件/文件夹的用户) FolderAcl.AddAccessRule(New FileSystemAccessRule(UserGroup, FileSystemRights.ReadAndExecute, Inheritanc
0 2023-05-25
编程技术问答社区
设计一个基于权限的安全模型
我在vb.net winforms应用程序上工作,我们目前正在使用简单的角色来安全.我们根据当前用户具有所需的角色启用/禁用特定控件.我们到了不再足够颗粒状的地步. 我们的应用程序基于我们称之为站点的不同物理位置.用户可能有权在一个站点上执行某些操作(例如,编辑站点的配置),而不是另一个站点.因此,我们现在需要根据当前用户和当前网站查找权限.同样,某个用户的权限可能非常特定于自己.没有其他用户的权限与其他用户的权限完全相同.因此,我们需要一个更基于权限的安全模型,而不是基于角色. 设计可以满足这些要求的新权限模型的最佳方法是什么?我想确保在代码中实现检查很容易(如果语句撒在我们的setuipermissions方法中,我不想要一百万个),并且我们不想更新每个用户(400+和计数)时间我们添加新的许可.由于最后的要求,我认为我们需要保持角色的想法,但可能会添加/删除特定用户特定权限的异常. 有什么想法? 解决方案 您的角色和权限在正确的轨道上.这是一个相对常见的解
0 2023-05-25
编程技术问答社区
VB.NET模块-当访问pub.Member时,我能否强制使用<Module_Name>.Public_Member_Name?成员?
我的情况是,在大型应用程序的相同逻辑模块中我有几个vb.net模块. 我希望每个模块的更新功能公开,但我希望用户被迫使用模块名称限定函数调用. ModuleName.Update() 而不是 Update() 这是可能的吗? 谢谢. 解决方案 no. vb.net规范自动使用类型促销允许发生这种行为.避免这种情况的唯一方法是在名称空间上具有相同名称(更新)的类型,该名称可以阻止(失败)VB.NET中提供的类型促销. 其他解决方案 使用模块通常是一个差的设计,因为它的方法直接以空间的名称可见. 考虑用课程代替它们.将Shared放在所有成员上: Class ClassName Public Shared Property SomeData As Integer Public Shared Sub Update() End Sub End Class Update将被引用为: ClassNa
0 2023-05-25
编程技术问答社区
在vb.net中跟踪函数调用的持续时间
在我们的VB6应用程序中,我们添加了一些实用程序功能,以跟踪函数中所花费的时间.我们这样做是为了跟踪性能瓶颈. 基本上,它的工作原理有两个实用程序函数:startTickCount()和endTickCount().您将在每个功能中传递函数的名称,并且在调用startTickCount()时使用字典来获取tick计数,然后在调用endTickCount()时减去tick计数.这不是完美的,因为它当然没有考虑到要获得tick数的电话需要时间等,但是基本上它适合我们的目的.屁股部分的痛苦确保在每个函数开头调用startTickCount(),并且在每个出口点处endtickcount(): Private Function SomeFuction() as String ' indicate the function started StartTickCount("MyClass.SomeFunction") ' some logic that cau
与iTextSharp相比,iText7的性能问题
我已经测试了HTML到PDF转换的ItextSharp和Itext7.根据性能,ItextSharp需要3分钟才能创建10000 PDF.但是Itext7需要17分钟才能创建10000 PDF.由于Itext7与ItextSharp相比是新版本,因此我决定将ITEXT7用于商业目的.但是明智的iText7较低. Itext7 中的测试 For i As Integer = 0 To 10000 HTML = ReadFile '=> Read HTML file from particular location 'HTML = Replace(HTML) => To Replace the content dynamically Dim writer As PdfWriter Dim array() As Byte = System.Text.Encoding.ASCII.GetBytes("a")
14 2023-05-24
编程技术问答社区
性能。加快应用速度
附件,我编写了一些进入我们的SQL DB,执行一些Queires的代码,然后在Windows表单上应用104个标签的结果. 我已经定时了此过程,大约需要4秒钟,这是长时间的,因为我的目标是立即完成此过程,因此,只要选择新员工,他/她的统计数据就会尽快加载. 我的问题:使这个目标成为可能有什么不同? Dim RESULT1 As Decimal 'declare this as global Dim RESULT2 As Decimal 'declare this as global Private Sub Week(ByVal week As Integer) Dim queryString As String = "SELECT " & _ "(SELECT CAST(SUM(TARGET_SECONDS) AS DECIMAL)/ CAST(SUM(ROUTE_SECONDS) AS DECIMAL) FROM dbo.APE_BUSD
4 2023-05-24
编程技术问答社区