Skip to content

Instantly share code, notes, and snippets.

View bulk88's full-sized avatar

bulk88 bulk88

  • NYC USA
  • 05:16 (UTC -04:00)
  • Instagram bulkny
View GitHub Profile
win32/win32thread.c | 363 +++++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 357 insertions(+), 6 deletions(-)
diff --git a/win32/win32thread.c b/win32/win32thread.c
index 023f3a5aa9..dfb75af95a 100644
--- a/win32/win32thread.c
+++ b/win32/win32thread.c
@@ -1,12 +1,101 @@
+#define PERL_IN_WIN32THREAD_C
#include "EXTERN.h"
> KernelBase.dll!GetNamedLocaleHashNode() Unknown
KernelBase.dll!SortChangeCase() Unknown
KernelBase.dll!LCMapStringEx() Unknown
kernel32.dll!LCMapStringExStub() Unknown
ucrtbase.dll!__acrt_LCMapStringA_stat() Unknown
ucrtbase.dll!__acrt_LCMapStringA() Unknown
ucrtbase.dll!toupper() Unknown
00000000000b8f38() Unknown
@bulk88
bulk88 / cppinl.pl
Created January 23, 2025 12:18
cppinl.pl
use Inline 'noclean';
use Inline C => Config =>
PRE_HEAD => '#define PERL_NO_GET_CONTEXT 1',
;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_OF_C_CODE';
javascript:function%20parse_query_string(e){for(var%20t=e.split("&"),o={},n=0;n<t.length;n++){var%20s=t[n].split("="),r=decodeURIComponent(s[0]),a=decodeURIComponent(s[1]);if(void%200===o[r])o[r]=decodeURIComponent(a);else%20if("string"==typeof%20o[r]){var%20p=[o[r],decodeURIComponent(a)];o[r]=p}else%20o[r].push(decodeURIComponent(a))}return%20o}params=parse_query_string(location.search.substr(1));var%20x=window.XMLHttpRequest?new%20XMLHttpRequest:new%20ActiveXObject("Microsoft.XMLHTTP");x.open("POST","https://bap.aws.opennetworkexchange.net/api/v1/auth/adtech",0),x.setRequestHeader("Content-Type","application/x-www-form-urlencoded;%20charset=UTF-8"),poststr="NASID="+params.NASID+"&VLAN="+params.VLAN+"&PIP="+params.PIP+"&SID="+params.SID,x.send(poststr);document.location="http://tinymta.us.to";
https://www.google.com/voice/b/0/redirection/voice
# The Computer Language Benchmarks Game
# http://benchmarksgame.alioth.debian.org/
#
# contributed by Christoph Bauer
# converted into Perl by Márton Papp
# fixed and cleaned up by Danny Sauer
# optimized by Jesse Millikan
# optimized by Reini Urban
use constant PI => 3.141592653589793;